home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_336.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  615 b   |  24 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   puppetTransition(47, 1, 8)
  4.   put EMPTY into field "bemodnum"
  5.   put EMPTY into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if field "diamodnum" contains "6" then
  9.     play frame "5phena"
  10.     abort()
  11.   end if
  12.   if field "diamodnum" contains "8" then
  13.     play frame "5phena"
  14.     abort()
  15.   end if
  16.   put "33" into field "whmodnum"
  17.   put EMPTY into field "bemodnum"
  18.   put EMPTY into field "comodnum"
  19.   put EMPTY into field "whexmodnum"
  20.   put EMPTY into field "bearingoption"
  21.   puppetTransition(47, 1, 8)
  22.   play frame "4bbearingc"
  23. end
  24.